;+
;replace all instances of a ? with each the new filters names
;
;
;-

pro replace_allnew_fancy, file
all_new=['J', 'H', 'K', 'SDSS'+['u', 'g', 'r', 'i', 'z'], $
	'johnson'+['U', 'B','V','R','I']]
lin=''
nlines=numlines(file)
for i=0, n_elements(all_new)-1 do begin
openr, lun,  file, /get_lun
for j=0, nlines-1 do begin
readf, lun, lin
  split=strsplit(lin, '?',/extract)
  print,strjoin(split, all_new[i])
endfor
close, lun
endfor




end
